ѹ 
function AddFileToZip(const SrcFileName, 
ZipFileName: string): Boolean; 
var 
AZip: TVCLZip; 
begin 
AZip := TVCLZip.Create(nil); 
try 
AZip.ZipName := "ѹļ"; 
AZip.FilesList.Add(SrcFileName); 
AZip.Password := ZipPassWord; 
AZip.ZipAction := ZipActionMode; 
AZip.Zip; 
finally 
FreeAndNil(AZip); 
end; 
Result := True; 
end; 

ѹ 
function TDataMove.ExtractFileFromZip(const DesPathName, 
ZipFileName: string): Boolean; 
var 
AZip: TVCLZip; 
begin 
AZip := TVCLZip.Create(nil); 
try 
with AZip do 
begin 
 OverwriteMode := Always; 
 ZipName := ZipFileName; 
 Password := ZipPassWord; 
 ZipAction := ZipActionMode; 
 DestDir := DesPathName; 
 ReadZip; 
 DoAll := True; 
 RecreateDirs := False; 
 RetainAttributes := True; 
 ReplaceReadOnly := True; 
 UnZip; 
end; 
finally 
FreeAndNil(AZip); 
end; 
Result := True; 
end; 
